home *** CD-ROM | disk | FTP | other *** search
/ Canon Creative 3 / Canon Creative 3.iso / webrec / MAINMENU.DIR / 00142.ls < prev    next >
Encoding:
Text File  |  1996-12-10  |  480 b   |  22 lines
  1. on exitFrame
  2.   sound stop 1
  3.   sound stop 2
  4. end
  5.  
  6. on enterFrame
  7.   global PrevMovie, STIcks
  8.   set STIcks to the ticks
  9.   if (PrevMovie <> "body") or (PrevMovie <> "power") then
  10.     set PrevMovie to "body"
  11.   end if
  12.   set xx to line random(9) of field ("loadText." & PrevMovie)
  13.   if xx = EMPTY then
  14.     put line 1 of field "loadText.Body" into field "stageText"
  15.   else
  16.     put xx into field "stageText"
  17.   end if
  18.   puppetSprite(1, 1)
  19.   set the locH of sprite 1 to 91
  20.   updateStage()
  21. end
  22.